home *** CD-ROM | disk | FTP | other *** search
/ SoundMaker 2003 (Professional Edition) / SoundMaker 2003 - Professional Edition.iso / midi tool / midioxse.exe / DATA.1 / Breath2NRPN.js < prev    next >
Text File  |  1999-11-26  |  2KB  |  91 lines
  1. // MIDIOX Test
  2. // Copyright (c) 2000 by Jamie O'Connell
  3. //
  4. // This script is an example of doing JScript with MIDI-OX
  5. // It converts each single Breath controller event into 4 NRPN messages, that
  6. // control filters on Patches (XG instruments).
  7.  
  8. var mox;
  9. var str, strWrk;
  10. var n, ii, nInst;
  11. var bGo;
  12. var notesOn;
  13. var baseChan;
  14.  
  15. // Create object
  16. mox = WScript.CreateObject("MoxKart.MoxWire.1", "On_");  
  17.  
  18. n = mox.NumberInstances;
  19. if (n > 0)
  20. { 
  21.    nInst = 1;
  22.    if (mox.AttachInstance( nInst ) == 1)     
  23.       WScript.Echo( "Attached Instance: " + nInst.toString() );
  24. }
  25. else if (mox.LaunchInstance() == 1)
  26. {
  27.    nInst = 1;
  28.    if (mox.AttachInstance( nInst ) == 1)    
  29.       WScript.Echo( "Launched and Attached Instance: " + nInst.toString() );
  30.    else
  31.       WScript.Echo( "Launched but could not Attach Instance: " + nInst.toString() );
  32. }
  33. else
  34.    WScript.Echo( "Launch MIDI-OX Failed" );
  35.  
  36. n = mox.NumberInstances;
  37.  
  38. // *** Try out our MIDI Input loop
  39. notesOn  = 0;     // init
  40. baseChan = 0;   // init -- we expect channel 1
  41.  
  42. if (mox.IsAttached == 1)
  43. {
  44.    mox.DivertMidiInput = 1;
  45.    mox.FireMidiInput = 1;
  46.    
  47.    WScript.Echo( "Press OK to end MIDI translate Loop" );
  48.    
  49.    mox.FireMidiInput = 0;
  50.    mox.DivertMidiInput = 0;
  51. }
  52.  
  53. str    = null;
  54. strWrk = null;
  55. mox    = null;
  56.  
  57. // Exit Point
  58. //------------------------------------------
  59.  
  60. function On_MidiInput( ts, stat, chan, dat1, dat2)
  61. {
  62.    // We convert all breath control messages into 4 message NRPNS
  63.    var newStat, newChan;
  64.    var newDat1, newDat2;
  65.  
  66.    // Change dat1 test: 'breath' (02) to 'modulation' (01) if you don't 
  67.    // have a breath controller, but want to see how this works
  68.    if (stat == 0x0B0 && dat1 == 0x02) 
  69.    {
  70.     newStat = stat + chan
  71.     mox.OutputMidiMsg( newStat, 0x63, 0x01 ); // NRPN MSB -- on XG (GS?): Filter cutoff
  72.     mox.OutputMidiMsg( newStat, 0x62, 0x20 ); // NRPN LSB
  73.     mox.OutputMidiMsg( newStat, 0x06, dat2 ); // DataEntry MSB (value of breath CC)
  74.     mox.OutputMidiMsg( newStat, 0x26, 0x00 ); // dataEntry LSB (0 in this case)
  75.    }
  76.    else // other message
  77.    {
  78.       newStat = stat + chan; 
  79.     mox.OutputMidiMsg( newStat, dat1, dat2 );
  80.    }
  81. }    
  82.  
  83. //------------------------------------------
  84. // connection point sink for SysEx
  85.  
  86. function On_SysExInput( strSysEx )
  87. {
  88.    mox.SendSysExString( strSysEx );
  89. }
  90.  
  91.